home *** CD-ROM | disk | FTP | other *** search
/ El Mac 9 / El Mac 9.iso / Shareware / Applications / Charting Coach v1.5 / Charting Coach v1.dxr / 00039_daily.ls < prev    next >
Encoding:
Text File  |  1996-04-08  |  685 b   |  24 lines
  1. on mouseUp
  2.   global currentCycleNo, dayNo, endDate, beginDate
  3.   cursor(4)
  4.   if the doubleClick then
  5.     exit
  6.   end if
  7.   put 1 into field "begin current daily"
  8.   put endDate - beginDate + 1 into field "end current daily"
  9.   if currentCycleNo > 1 then
  10.     put currentCycleNo - 1 into field "cycle number"
  11.   else
  12.     put 1 into field "cycle number"
  13.   end if
  14.   put 1 into field "begin number"
  15.   put 1 into field "end number"
  16.   set the hilite of member "monthly" to 0
  17.   set the hilite of member "daily" to 1
  18.   set the hilite of member "biodata" to 0
  19.   set the hilite of member "current daily" to 1
  20.   set the hilite of member "previous daily" to 0
  21.   go("print options daily")
  22.   cursor(0)
  23. end
  24.